
Sub ShowMessage(strText)
    MsgBox strText
End Sub